#!/usr/bin/perl
use locale;
$i=0;
my $rep = "textes"; 
# on met dans $rep le contenu du dossier "/textes"
opendir (DIR, $rep); 
# On ouvre le dossier 
my @fichiers = readdir (DIR); 
# On met le nom de chaque texte dans le tableau @fichiers
closedir(DIR); 
# On ferme le dossier
foreach my $texte (@fichiers) { 
# Pour chaque texte, on fait le traitement suivant
	next if $texte =~ /^\.\.?$/;
	$texte="textes/".$texte;
	open(FILE, $texte);
	open(FILEOUT, ">DICO$i.txt"); 
	# on ouvre le fichier dans lequel on va écrire le dico
	$i++;
	%dico=(); # on initialise un tableau de hachage à vide
	while ($l=<FILE>) {
		my @motsparligne=split(/[\W]/,$l);
		foreach my $mot (@motsparligne) {
			$dico{$mot}++;
		}
		foreach $mots ( sort keys(%dico) ) {
			print FILEOUT $mots, ":", $dico{$mots}, "\n";
		}
	close(FILE);
	close(FILEOUT);# on ferme le fichier en sortie	
}
}